home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / Gui4Cli / G4C / CED / cedMark.g < prev   
Encoding:
Gui4CLI script  |  1980-01-03  |  824 b   |  42 lines
  1. G4C   - CygnusEd Rexx control centre
  2.  
  3.  
  4. ; This is an accompanying GUI for the cedbar.gc GUI
  5.  
  6.  
  7.  
  8. WINBIG 604 21 46 66  "xx"
  9. WinSmall 500 22 140 11
  10. WinType 11000000
  11. Screen CygnusEdScreen1
  12.  
  13. ;***************************** MARK Set/Go *********************
  14.  
  15. XRADIO 24 2 18 9    cedMark 2
  16. RStr 1 1
  17. RStr 2 2
  18. RStr 3 3
  19.  
  20. XBUTTON 5 48 36 16     Set
  21. SetVar cedSend "mark location "
  22. AppVar cedSend $cedMark
  23. SendRexx rexx_ced $cedSend
  24. gosub cedMark.g verify
  25.  
  26. XBUTTON 5 32 36 16     Go
  27. SetVar cedSend "jump to mark "
  28. AppVar cedSend $cedMark
  29. SendRexx rexx_ced $cedSend
  30. gosub cedMark.g verify
  31.  
  32. ;**************************** ROUTINE VERIFY
  33. ; This is just a little routine to show the result of the SendRexx command
  34.  
  35. xRoutine Verify
  36. if $$Retcode > 0
  37.   SetWinTitle cedMark.g "CEd not found!"
  38.   break
  39. endif
  40. SetWinTitle cedMark.g "CygnusEd     ok"
  41.  
  42.